home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed25.d64 / exercise 1 (.txt) next >
Commodore BASIC  |  2007-02-04  |  5KB  |  144 lines
  1. 200 PRINT"[147][159]";:POKE53272,21:POKE53280,0:POKE53281,0
  2. 201 PRINT"      A TPUG EDUCATIONAL PROGRAM":GOSUB591
  3. 202 PRINT"                                        [146]";
  4. 203 PRINT"                                        [146]";
  5. 204 PRINT"                                        [146]";
  6. 205 PRINT"            ENGLISH - CONTEXT           [146]";
  7. 206 PRINT"                                        [146]";
  8. 207 PRINT"               EXERCISE  1              [146]";
  9. 208 PRINT"                                        [146]";
  10. 209 PRINT"[159]                                        [146]";
  11. 210 PRINT"                                        [146]":GOSUB591:GOSUB560
  12. 211 PRINT"          INSTRUCTIONS?  Y/N        [151]T"
  13. 212 GETR$:IFR$<>"Y"ANDR$<>"N"ANDR$<>"T"THEN 212
  14. 213 IFR$="Y"THENGOSUB400
  15. 214 IFR$="T"THEN2200
  16. 215 PRINT"[147][153] WHAT IS YOUR NAME?":GOSUB560:GOSUB590
  17. 216 INPUT N$
  18. 217 PRINT"[147][153] AND AWAY WE GO........":GOSUB591:GOSUB500:GOSUB590
  19. 218 GOTO1000
  20. 235 GOSUB591:GOSUB560
  21. 236 PRINT"[154] PRESS SPACE BAR TO CONTINUE [146][155]"
  22. 237 GETUI$:IFUI$<>" "THEN237
  23. 238 RETURN
  24. 240 GOSUB592:GOSUB500
  25. 242 PRINT"[154][208]RESS SPACE BAR TO CONTINUE[146]"
  26. 244 GETU$:IFU$<>CHR$(32)THEN244
  27. 246 RETURN
  28. 299 :
  29. 400 PRINT"[153][147]":POKE53281,0:POKE53280,0
  30. 431 PRINT" THIS IS A WORD GAME FOR GRADE 4         PUPILS."
  31. 432 PRINT" A SENTENCE WILL BE SHOWN BUT A WORD     WILL BE MISSING.
  32. 434 [153]" A LIST OF WORDS WILL BE SHOWN IN"
  33. 435 [153]" THE MIDDLE OF THE SCREEN."
  34. 436 [153]" CHOOSE THE WORD THAT WILL FINISH"
  35. 437 [153]" THE SENTENCE AND MAKE SENSE."
  36. 441 [153]" AFTER YOU TYPE IN THE WORD, PRESS        RETURN WAIT":[141]592
  37. 442 [153]" NOW, LET'S LOOK AT AN EXAMPLE."
  38. 443 [141]235
  39. 444 [153]"LOADOPEN BETTY WENT TO THE ---- TO SEE A MOVIE.":[153]" ? SPC("
  40. 445 [153]" YOU MUST SELECT A WORD FROM THE LIST    TO FILL IN THE BLANK.ONONOPEN"
  41. 446 [141]2300:[153]"":[141]235
  42. 447 [153]"LOADOPEN TO DECIDE WHICH WORD IS CORRECT "
  43. 448 [153]" READ THE SENTENCE WITH EACH WORD"
  44. 449 [153]" AND THEN DECIDE WHICH WORD IS THE       BEST ANSWER."
  45. 450 [153]" WHEN YOU HAVE MADE YOUR CHOICE, TYPE
  46. 451 PRINT" IN THAT WORD AND PRESS  RETURN [146]."
  47. 453 GOSUB235
  48. 454 PRINT"[159][147] BETTY WENT TO THE ---- TO SEE A MOVIE."
  49. 455 PRINT" ? [158]THEATRE IS THE CORRECT CHOICE.[159]":GOSUB2300:PRINT""
  50. 495 GOSUB235:RETURN
  51. 499 :
  52. 500 REM <YES>
  53. 505 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  54. 510 POKE54296,15:POKE54277,42:POKE54278,250
  55. 515 POKE54276,23:POKE54273,23:POKE54272,191
  56. 520 FORTM=1TO150:NEXT:POKE54276,32:FORTM=1TO200:NEXT
  57. 525 POKE54296,0:RETURN
  58. 530 REM <NO>
  59. 535 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  60. 540 POKE54296,15:POKE54277,18:POKE54278,242
  61. 545 POKE54276,33:POKE54273,4:POKE54272,48
  62. 550 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  63. 555 POKE54296,0:RETURN
  64. 560 REM <BLIP>
  65. 565 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  66. 570 POKE54296,7:POKE54277,42:POKE54278,250
  67. 575 POKE54276,23:POKE54273,23:POKE54272,191
  68. 580 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  69. 585 POKE54296,0:RETURN
  70. 590 FORTM=1TO500:NEXT:RETURN
  71. 591 FORTM=1TO1000:NEXT:RETURN
  72. 592 FORTM=1TO2000:NEXT:RETURN
  73. 593 FORTM=1TO3000:NEXT:RETURN
  74. 999 :
  75. 1000 PRINT"[147]";:RESTORE:POKE53281,0:POKE53280,0
  76. 1005 C=8:H=0
  77. 1010 FORJ=1TOC
  78. 1015 READA$,B$
  79. 1020 PRINT"[152][147] ED-25 1 [156]"TAB(14)""N$TAB(32)"[155]STEP:"H
  80. 1025 PRINT" ";A$
  81. 1030 GOSUB2300:GOSUB560
  82. 1035 INPUT"[158] >>>  ";SX$
  83. 1040 IFSX$=B$GOTO1075
  84. 1045 IFZ=2THENPRINT"[153][145] THE CORRECT WORD IS [158]"B$:H=H+1:GOSUB530:GOSUB592
  85. 1050 IFZ=2THENPRINT"":GOSUB235:GOTO1080
  86. 1055 Z=Z+1:H=H+1
  87. 1060 PRINT"[150]  NO, TRY AGAIN! ":GOSUB530
  88. 1070 GOSUB592:GOTO1020
  89. 1075 H=H+1:PRINT""SPC(24)"[158]CORRECT!":GOSUB500:GOSUB592
  90. 1080 Z=0:NEXTJ
  91. 1099 :
  92. 2000 PRINT"[147]YOU HAVE NOW FINISHED EXERCISE 1.":GOSUB591:GOSUB560
  93. 2005 PRINT"YOU HAVE ANSWERED 8 QUESTIONS"
  94. 2010 PRINT"               IN"H"ATTEMPTS."
  95. 2020 IFH=8THENPRINT"[158]                EXCELLENT!              [146]":GOTO2050
  96. 2030 IFH=9THENPRINT"[159]              GOOD WORK!                [146]":GOTO2050
  97. 2040 PRINT"[150]       TRY HARDER!  DO IT AGAIN!        [146]"
  98. 2050 PRINT"":GOSUB235
  99. 2055 PRINT"[153][147]YOU HAVE A CHOICE:
  100. 2060 [153]"PRESS  R WAIT TO REPEAT EXERCISE 1
  101. 2062 PRINT"PRESS  G [146] TO GO TO EXERCISE 2
  102. 2064 [153]"PRESS  M WAIT TO GO TO THE DISK MENU
  103. 2066 GETR$:IFR$<>"R"ANDR$<>"M"ANDR$<>"G"THEN2066
  104. 2070 RESTORE
  105. 2072 IFR$="R"THEN200
  106. 2074 IFR$="G"THEN2090
  107. 2080 PRINT"[147] RETURNING TO THE DISK MENU
  108. 2082 [147]"MENU",8
  109. 2084 [138]
  110. 2086 [128]
  111. 2090 [153]"LOAD GOING TO EXERCISE 2
  112. 2092 LOAD"EXERCISE 2",8
  113. 2094 RUN
  114. 2096 END
  115. 2099 :
  116. 2100 GOSUB235:POKES1,0:RETURN
  117. 2110 DATAJOE LOST HIS ---- AND FELL OFF THE      FENCE.,BALANCE
  118. 2115 DATAGEORGE TRIED TO ---- THE BIG STICK      INTO THE HOLE.,RAM
  119. 2120 DATATHE LEAVES ---- WHEN THE WIND BLOWS.,FLUTTER
  120. 2125 DATATHE GENERAL WAS CALLED A ----.,HERO
  121. 2130 DATATHE ---- IS BAD IN LAKE ONTARIO.,POLLUTION
  122. 2135 DATATHERE WAS A DEEP ---- IN THE MOUNTAINS.,GORGE
  123. 2140 DATAATHENS IS AN ---- CITY IN GREECE.,ANCIENT
  124. 2145 DATAWE WENT TO THE ---- TO SEE A PLAY.,THEATRE
  125. 2199 :
  126. 2200 PRINT"[147] HERE ARE THE WORDS IN UNIT 4-1:[155]":GOSUB560:GOSUB593:
  127. 2210 PRINT" 1. JOE LOST HIS [158]BALANCE[155] AND FELL OFF       THE FENCE.
  128. 2220 [153]" 2. GEORGE TRIED TO SYSRAMLIST THE BIG STICK       INTO THE HOLE.
  129. 2230 PRINT" 3. THE LEAVES [158]FLUTTER[155] WHEN THE WIND        BLOWS.
  130. 2240 [153]" 4. THE GENERAL WAS CALLED A SYSHEROLIST.
  131. 2250 PRINT" 5. THE [158]POLLUTION[155] IS BAD IN LAKE            ONTARIO.
  132. 2260 [153]" 6. THERE WAS A DEEP SYSGORGELIST IN THE           MOUNTAINS.
  133. 2270 PRINT" 7. ATHENS IS AN [158]ANCIENT[155] CITY IN            GREECE.
  134. 2280 [153]" 8. WE WENT TO THE SYSTHEATRELIST TO SEE A         PLAY.
  135. 2290 GOSUB235:GOTO200
  136. 2299 :
  137. 2300 PRINT" [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  138. 2310 PRINT"[159] CHOOSE YOUR ANSWER FROM THE FOLLOWING:[153]"
  139. 2320 PRINTSPC(12)"   HERO    ":PRINTSPC(12)"   THEATRE   "
  140. 2330 PRINTSPC(12)"   BALANCE  ":PRINTSPC(12)"   FLUTTER   "
  141. 2340 PRINTSPC(12)"   RAM      ":PRINTSPC(12)"   ANCIENT   "
  142. 2350 PRINTSPC(12)"   POLLUTION":PRINTSPC(12)"   GORGE     ":RETURN
  143. 3500 REM WHC 92 04 07
  144.